home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Windows Selection / Windows Selection 1.iso / Programmer's Utilities / GroundControl / Samples / Sample1.gc < prev    next >
Encoding:
Text File  |  1997-03-25  |  512 b   |  16 lines
  1. RunProgram("notepad")
  2. RunProgram("calc")
  3. Delay(1000)
  4. InputBox( "Please enter the first number" )
  5. SendInputToWindow("Calculator")
  6. SendKeysToWindow("Calculator", "*" )
  7.  
  8. InputBox( "Please enter the second number" )
  9. SendInputToWindow("Calculator")
  10. SendKeysToWindow("Calculator","=")
  11. // now get the number back, hmmmm...
  12. SendKeysToWindow("Calculator","^C")
  13. SendKeysToWindow("Untitled - Notepad","answer: ")
  14. SendKeysToWindow("Untitled - Notepad","^V, and don't forget to check it.")
  15. MessageBox("Done!")
  16.